/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / MSLpatches / ->MSL C.sit / ->MSL C / ->MSL Mac / into Source / stat.mac.c

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 73 74 61 74 2e 6d | 61 63 2e 63 00 00 00 00 |..stat.m|ac.c....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 0e 5d 00 | 00 01 ac af a8 fc f9 af |......].|........|
|00000060| a8 fc f9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 de 3f 00 00 |........|.....?..|
|00000080| 2f 2a 20 20 4d 65 74 72 | 6f 77 65 72 6b 73 20 53 |/*  Metr|owerks S|
|00000090| 74 61 6e 64 61 72 64 20 | 4c 69 62 72 61 72 79 20 |tandard |Library |
|000000a0| 20 56 65 72 73 69 6f 6e | 20 32 2e 31 2e 32 62 37 | Version| 2.1.2b7|
|000000b0| 20 20 31 39 39 37 20 4d | 61 79 20 20 2a 2f 0d 0d |  1997 M|ay  */..|
|000000c0| 2f 2a 0d 20 2a 09 46 69 | 6c 65 3a 09 09 73 74 61 |/*. *.Fi|le:..sta|
|000000d0| 74 2e 63 0d 20 2a 09 09 | 09 09 a9 31 39 39 33 2d |t.c. *..|...1993-|
|000000e0| 31 39 39 37 20 6d 65 74 | 72 6f 77 65 72 6b 73 20 |1997 met|rowerks |
|000000f0| 49 6e 63 2e 20 41 6c 6c | 20 72 69 67 68 74 73 20 |Inc. All| rights |
|00000100| 72 65 73 65 72 76 65 64 | 0d 20 2a 09 41 75 74 68 |reserved|. *.Auth|
|00000110| 6f 72 3a 09 09 42 65 72 | 61 72 64 69 6e 6f 20 45 |or:..Ber|ardino E|
|00000120| 2e 20 42 61 72 61 74 74 | 61 0d 20 2a 0d 20 2a 09 |. Baratt|a. *. *.|
|00000130| 43 6f 6e 74 65 6e 74 3a | 09 49 6e 74 65 72 66 61 |Content:|.Interfa|
|00000140| 63 65 20 66 69 6c 65 20 | 74 6f 20 73 74 61 6e 64 |ce file |to stand|
|00000150| 61 72 64 20 55 4e 49 58 | 2d 73 74 79 6c 65 20 65 |ard UNIX|-style e|
|00000160| 6e 74 72 79 20 70 6f 69 | 6e 74 73 20 2e 2e 2e 0d |ntry poi|nts ....|
|00000170| 20 2a 0d 20 2a 09 4e 42 | 3a 09 09 09 54 68 69 73 | *. *.NB|:...This|
|00000180| 20 66 69 6c 65 20 69 6d | 70 6c 65 6d 65 6e 74 73 | file im|plements|
|00000190| 20 73 6f 6d 65 20 55 4e | 49 58 20 6c 6f 77 20 6c | some UN|IX low l|
|000001a0| 65 76 65 6c 20 73 75 70 | 70 6f 72 74 2e 20 20 54 |evel sup|port.  T|
|000001b0| 68 65 73 65 20 66 75 6e | 63 74 69 6f 6e 73 0d 20 |hese fun|ctions. |
|000001c0| 2a 09 09 09 09 61 72 65 | 20 6e 6f 74 20 67 75 61 |*....are| not gua|
|000001d0| 72 61 6e 74 65 65 64 20 | 74 6f 20 62 65 20 31 30 |ranteed |to be 10|
|000001e0| 30 25 20 63 6f 6e 66 6f | 72 6d 61 6e 74 2e 0d 20 |0% confo|rmant.. |
|000001f0| 2a 0d 20 2a 2f 0d 0d 23 | 69 6e 63 6c 75 64 65 20 |*. */..#|include |
|00000200| 3c 73 74 61 74 2e 68 3e | 0d 0d 23 69 6e 63 6c 75 |<stat.h>|..#inclu|
|00000210| 64 65 20 3c 65 72 72 6e | 6f 2e 68 3e 0d 23 69 6e |de <errn|o.h>.#in|
|00000220| 63 6c 75 64 65 20 3c 75 | 6e 69 73 74 64 2e 68 3e |clude <u|nistd.h>|
|00000230| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 3c 46 69 6c 65 |..#inclu|de <File|
|00000240| 73 2e 68 3e 0d 23 69 6e | 63 6c 75 64 65 20 3c 4c |s.h>.#in|clude <L|
|00000250| 6f 77 4d 65 6d 2e 68 3e | 0d 23 69 6e 63 6c 75 64 |owMem.h>|.#includ|
|00000260| 65 20 3c 54 79 70 65 73 | 2e 68 3e 0d 23 69 6e 63 |e <Types|.h>.#inc|
|00000270| 6c 75 64 65 20 3c 74 69 | 6d 65 2e 6d 61 63 2e 68 |lude <ti|me.mac.h|
|00000280| 3e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |>       |        |
|00000290| 20 20 20 2f 2a 6d 6d 39 | 37 30 35 31 34 20 2a 2f |   /*mm9|70514 */|
|000002a0| 0d 0d 2f 2a 20 66 75 6e | 63 74 69 6f 6e 20 70 72 |../* fun|ction pr|
|000002b0| 6f 74 6f 74 79 70 65 73 | 20 66 6f 72 20 65 78 74 |ototypes| for ext|
|000002c0| 65 72 6e 61 6c 6c 79 20 | 64 65 66 69 6e 65 64 20 |ernally |defined |
|000002d0| 66 75 6e 63 74 69 6f 6e | 73 20 2a 2f 0d 23 69 66 |function|s */.#if|
|000002e0| 64 65 66 20 5f 5f 63 70 | 6c 75 73 70 6c 75 73 0d |def __cp|lusplus.|
|000002f0| 65 78 74 65 72 6e 20 22 | 43 22 20 7b 0d 23 65 6e |extern "|C" {.#en|
|00000300| 64 69 66 0d 0d 65 78 74 | 65 72 6e 20 69 6e 74 20 |dif..ext|ern int |
|00000310| 5f 5f 63 74 6f 70 73 74 | 72 69 6e 67 28 63 6f 6e |__ctopst|ring(con|
|00000320| 73 74 20 63 68 61 72 20 | 2a 63 73 74 72 69 6e 67 |st char |*cstring|
|00000330| 2c 20 53 74 72 32 35 35 | 20 70 73 74 72 69 6e 67 |, Str255| pstring|
|00000340| 29 3b 0d 0d 23 69 66 64 | 65 66 20 5f 5f 63 70 6c |);..#ifd|ef __cpl|
|00000350| 75 73 70 6c 75 73 0d 7d | 0d 23 65 6e 64 69 66 0d |usplus.}|.#endif.|
|00000360| 0d 2f 2a 0d 20 2a 09 73 | 74 61 74 69 63 20 69 6e |./*. *.s|tatic in|
|00000370| 74 20 5f 5f 73 74 61 74 | 28 73 68 6f 72 74 20 76 |t __stat|(short v|
|00000380| 72 65 66 6e 75 6d 2c 20 | 6c 6f 6e 67 20 64 69 72 |refnum, |long dir|
|00000390| 69 64 2c 20 53 74 72 32 | 35 35 20 70 6e 61 6d 65 |id, Str2|55 pname|
|000003a0| 2c 20 73 74 72 75 63 74 | 20 73 74 61 74 20 2a 62 |, struct| stat *b|
|000003b0| 75 66 29 0d 20 2a 0d 20 | 2a 09 09 52 65 74 75 72 |uf). *. |*..Retur|
|000003c0| 6e 73 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 61 |ns infor|mation a|
|000003d0| 62 6f 75 74 20 61 20 66 | 69 6c 65 20 28 63 61 6c |bout a f|ile (cal|
|000003e0| 6c 65 64 20 62 79 20 66 | 73 74 61 74 20 61 6e 64 |led by f|stat and|
|000003f0| 20 73 74 61 74 29 2e 0d | 20 2a 2f 0d 73 74 61 74 | stat)..| */.stat|
|00000400| 69 63 20 69 6e 74 20 5f | 5f 73 74 61 74 28 73 68 |ic int _|_stat(sh|
|00000410| 6f 72 74 20 76 72 65 66 | 6e 75 6d 2c 20 6c 6f 6e |ort vref|num, lon|
|00000420| 67 20 64 69 72 69 64 2c | 20 53 74 72 32 35 35 20 |g dirid,| Str255 |
|00000430| 70 6e 61 6d 65 2c 20 73 | 74 72 75 63 74 20 73 74 |pname, s|truct st|
|00000440| 61 74 20 2a 62 75 66 29 | 0d 7b 0d 09 48 46 69 6c |at *buf)|.{..HFil|
|00000450| 65 49 6e 66 6f 09 09 66 | 70 62 3b 0d 09 48 56 6f |eInfo..f|pb;..HVo|
|00000460| 6c 75 6d 65 50 61 72 61 | 6d 09 76 70 62 3b 0d 09 |lumePara|m.vpb;..|
|00000470| 4f 53 45 72 72 09 09 09 | 65 72 72 3b 0d 09 53 74 |OSErr...|err;..St|
|00000480| 72 32 35 35 09 09 09 6e | 61 6d 65 3b 0d 0d 09 66 |r255...n|ame;...f|
|00000490| 70 62 2e 69 6f 4e 61 6d | 65 50 74 72 20 3d 20 70 |pb.ioNam|ePtr = p|
|000004a0| 6e 61 6d 65 3b 0d 09 66 | 70 62 2e 69 6f 46 44 69 |name;..f|pb.ioFDi|
|000004b0| 72 49 6e 64 65 78 20 3d | 20 30 3b 0d 09 66 70 62 |rIndex =| 0;..fpb|
|000004c0| 2e 69 6f 56 52 65 66 4e | 75 6d 20 3d 20 76 72 65 |.ioVRefN|um = vre|
|000004d0| 66 6e 75 6d 3b 0d 09 66 | 70 62 2e 69 6f 44 69 72 |fnum;..f|pb.ioDir|
|000004e0| 49 44 20 3d 20 64 69 72 | 69 64 3b 0d 0d 09 2f 2a |ID = dir|id;.../*|
|000004f0| 20 67 65 74 20 74 68 65 | 20 66 69 6c 65 27 73 20 | get the| file's |
|00000500| 63 61 74 61 6c 6f 67 20 | 69 6e 66 6f 20 2a 2f 0d |catalog |info */.|
|00000510| 09 65 72 72 20 3d 20 50 | 42 47 65 74 43 61 74 49 |.err = P|BGetCatI|
|00000520| 6e 66 6f 53 79 6e 63 28 | 28 43 49 6e 66 6f 50 42 |nfoSync(|(CInfoPB|
|00000530| 50 74 72 29 26 66 70 62 | 29 3b 0d 09 69 66 20 28 |Ptr)&fpb|);..if (|
|00000540| 65 72 72 20 3d 3d 20 6e | 6f 45 72 72 29 20 7b 0d |err == n|oErr) {.|
|00000550| 09 09 2f 2a 20 67 65 74 | 20 74 68 65 20 76 6f 6c |../* get| the vol|
|00000560| 75 6d 65 27 73 20 69 6e | 66 6f 20 2a 2f 0d 09 09 |ume's in|fo */...|
|00000570| 76 70 62 2e 69 6f 56 6f | 6c 49 6e 64 65 78 20 3d |vpb.ioVo|lIndex =|
|00000580| 20 30 3b 0d 09 09 76 70 | 62 2e 69 6f 4e 61 6d 65 | 0;...vp|b.ioName|
|00000590| 50 74 72 20 3d 20 6e 61 | 6d 65 3b 0d 09 09 76 70 |Ptr = na|me;...vp|
|000005a0| 62 2e 69 6f 56 52 65 66 | 4e 75 6d 20 3d 20 76 72 |b.ioVRef|Num = vr|
|000005b0| 65 66 6e 75 6d 3b 0d 09 | 09 65 72 72 20 3d 20 50 |efnum;..|.err = P|
|000005c0| 42 48 47 65 74 56 49 6e | 66 6f 53 79 6e 63 28 28 |BHGetVIn|foSync((|
|000005d0| 48 50 61 72 6d 42 6c 6b | 50 74 72 29 26 76 70 62 |HParmBlk|Ptr)&vpb|
|000005e0| 29 3b 0d 09 09 69 66 20 | 28 65 72 72 20 3d 3d 20 |);...if |(err == |
|000005f0| 6e 6f 45 72 72 20 26 26 | 20 62 75 66 20 21 3d 20 |noErr &&| buf != |
|00000600| 4e 55 4c 4c 29 20 7b 0d | 09 09 09 2f 2a 20 66 69 |NULL) {.|.../* fi|
|00000610| 6c 6c 20 69 6e 20 74 68 | 65 20 64 61 74 61 20 2a |ll in th|e data *|
|00000620| 2f 0d 09 09 09 69 66 20 | 28 66 70 62 2e 69 6f 46 |/....if |(fpb.ioF|
|00000630| 6c 41 74 74 72 69 62 20 | 26 20 30 78 31 30 29 0d |lAttrib |& 0x10).|
|00000640| 09 09 09 7b 0d 09 09 09 | 09 62 75 66 2d 3e 73 74 |...{....|.buf->st|
|00000650| 5f 6d 6f 64 65 20 3d 20 | 53 5f 49 46 44 49 52 3b |_mode = |S_IFDIR;|
|00000660| 0d 09 09 09 09 62 75 66 | 2d 3e 73 74 5f 6e 6c 69 |.....buf|->st_nli|
|00000670| 6e 6b 20 3d 20 32 3b 0d | 09 09 09 7d 09 09 09 09 |nk = 2;.|...}....|
|00000680| 0d 09 09 09 65 6c 73 65 | 0d 09 09 09 7b 0d 09 09 |....else|....{...|
|00000690| 09 09 62 75 66 2d 3e 73 | 74 5f 6e 6c 69 6e 6b 20 |..buf->s|t_nlink |
|000006a0| 3d 20 31 3b 0d 09 09 09 | 09 69 66 20 28 66 70 62 |= 1;....|.if (fpb|
|000006b0| 2e 69 6f 46 6c 46 6e 64 | 72 49 6e 66 6f 2e 66 64 |.ioFlFnd|rInfo.fd|
|000006c0| 46 6c 61 67 73 20 26 20 | 30 78 38 30 30 30 29 0d |Flags & |0x8000).|
|000006d0| 09 09 09 09 09 62 75 66 | 2d 3e 73 74 5f 6d 6f 64 |.....buf|->st_mod|
|000006e0| 65 20 3d 20 53 5f 49 46 | 4c 4e 4b 3b 0d 09 09 09 |e = S_IF|LNK;....|
|000006f0| 09 65 6c 73 65 0d 09 09 | 09 09 09 62 75 66 2d 3e |.else...|...buf->|
|00000700| 73 74 5f 6d 6f 64 65 20 | 3d 20 53 5f 49 46 52 45 |st_mode |= S_IFRE|
|00000710| 47 3b 0d 09 09 09 7d 0d | 09 09 09 62 75 66 2d 3e |G;....}.|...buf->|
|00000720| 73 74 5f 69 6e 6f 20 3d | 20 66 70 62 2e 69 6f 44 |st_ino =| fpb.ioD|
|00000730| 69 72 49 44 3b 0d 09 09 | 09 62 75 66 2d 3e 73 74 |irID;...|.buf->st|
|00000740| 5f 64 65 76 20 3d 20 66 | 70 62 2e 69 6f 56 52 65 |_dev = f|pb.ioVRe|
|00000750| 66 4e 75 6d 3b 0d 09 09 | 09 62 75 66 2d 3e 73 74 |fNum;...|.buf->st|
|00000760| 5f 75 69 64 20 3d 20 67 | 65 74 75 69 64 28 29 3b |_uid = g|etuid();|
|00000770| 0d 09 09 09 62 75 66 2d | 3e 73 74 5f 67 69 64 20 |....buf-|>st_gid |
|00000780| 3d 20 67 65 74 67 69 64 | 28 29 3b 0d 09 09 09 62 |= getgid|();....b|
|00000790| 75 66 2d 3e 73 74 5f 72 | 64 65 76 20 3d 20 30 3b |uf->st_r|dev = 0;|
|000007a0| 0d 09 09 09 62 75 66 2d | 3e 73 74 5f 73 69 7a 65 |....buf-|>st_size|
|000007b0| 20 3d 20 66 70 62 2e 69 | 6f 46 6c 4c 67 4c 65 6e | = fpb.i|oFlLgLen|
|000007c0| 3b 0d 09 09 09 62 75 66 | 2d 3e 73 74 5f 61 74 69 |;....buf|->st_ati|
|000007d0| 6d 65 20 3d 20 62 75 66 | 2d 3e 73 74 5f 6d 74 69 |me = buf|->st_mti|
|000007e0| 6d 65 20 3d 20 66 70 62 | 2e 69 6f 46 6c 4d 64 44 |me = fpb|.ioFlMdD|
|000007f0| 61 74 20 2b 20 5f 6d 61 | 63 5f 75 6e 69 78 5f 65 |at + _ma|c_unix_e|
|00000800| 70 6f 63 68 5f 6f 66 66 | 73 65 74 5f 3b 20 20 20 |poch_off|set_;   |
|00000810| 20 20 20 20 2f 2a 6d 6d | 20 39 37 30 35 31 34 2a |    /*mm| 970514*|
|00000820| 2f 0d 09 09 09 62 75 66 | 2d 3e 73 74 5f 63 74 69 |/....buf|->st_cti|
|00000830| 6d 65 20 3d 20 66 70 62 | 2e 69 6f 46 6c 43 72 44 |me = fpb|.ioFlCrD|
|00000840| 61 74 20 2b 20 5f 6d 61 | 63 5f 75 6e 69 78 5f 65 |at + _ma|c_unix_e|
|00000850| 70 6f 63 68 5f 6f 66 66 | 73 65 74 5f 3b 20 20 20 |poch_off|set_;   |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000870| 20 20 20 20 2f 2a 6d 6d | 20 39 37 30 35 31 34 2a |    /*mm| 970514*|
|00000880| 2f 0d 09 09 09 62 75 66 | 2d 3e 73 74 5f 62 6c 6b |/....buf|->st_blk|
|00000890| 73 69 7a 65 20 3d 20 76 | 70 62 2e 69 6f 56 41 6c |size = v|pb.ioVAl|
|000008a0| 42 6c 6b 53 69 7a 3b 0d | 09 09 09 62 75 66 2d 3e |BlkSiz;.|...buf->|
|000008b0| 73 74 5f 62 6c 6f 63 6b | 73 20 3d 20 28 62 75 66 |st_block|s = (buf|
|000008c0| 2d 3e 73 74 5f 73 69 7a | 65 20 2b 20 62 75 66 2d |->st_siz|e + buf-|
|000008d0| 3e 73 74 5f 62 6c 6b 73 | 69 7a 65 20 2d 20 31 29 |>st_blks|ize - 1)|
|000008e0| 20 2f 20 62 75 66 2d 3e | 73 74 5f 62 6c 6b 73 69 | / buf->|st_blksi|
|000008f0| 7a 65 3b 0d 09 09 7d 0d | 09 7d 0d 0d 09 69 66 20 |ze;...}.|.}...if |
|00000900| 28 65 72 72 20 21 3d 20 | 6e 6f 45 72 72 29 0d 09 |(err != |noErr)..|
|00000910| 09 65 72 72 6e 6f 20 3d | 20 65 72 72 3b 0d 09 72 |.errno =| err;..r|
|00000920| 65 74 75 72 6e 20 28 65 | 72 72 20 3d 3d 20 6e 6f |eturn (e|rr == no|
|00000930| 45 72 72 20 3f 20 30 20 | 3a 20 2d 31 29 3b 0d 7d |Err ? 0 |: -1);.}|
|00000940| 0d 0d 2f 2a 0d 20 2a 09 | 69 6e 74 20 73 74 61 74 |../*. *.|int stat|
|00000950| 28 63 68 61 72 20 2a 70 | 61 74 68 2c 20 73 74 72 |(char *p|ath, str|
|00000960| 75 63 74 20 73 74 61 74 | 20 2a 62 75 66 29 0d 20 |uct stat| *buf). |
|00000970| 2a 0d 20 2a 09 09 52 65 | 74 75 72 6e 73 20 69 6e |*. *..Re|turns in|
|00000980| 66 6f 72 6d 61 74 69 6f | 6e 20 61 62 6f 75 74 20 |formatio|n about |
|00000990| 61 20 66 69 6c 65 2e 0d | 20 2a 2f 0d 69 6e 74 20 |a file..| */.int |
|000009a0| 73 74 61 74 28 63 6f 6e | 73 74 20 63 68 61 72 20 |stat(con|st char |
|000009b0| 2a 70 61 74 68 2c 20 73 | 74 72 75 63 74 20 73 74 |*path, s|truct st|
|000009c0| 61 74 20 2a 62 75 66 29 | 0d 7b 0d 09 53 74 72 32 |at *buf)|.{..Str2|
|000009d0| 35 35 09 09 09 70 70 61 | 74 68 3b 0d 0d 09 69 66 |55...ppa|th;...if|
|000009e0| 20 28 70 61 74 68 29 20 | 7b 0d 09 09 2f 2a 20 63 | (path) |{.../* c|
|000009f0| 6f 6e 76 65 72 74 20 74 | 68 65 20 43 20 73 74 72 |onvert t|he C str|
|00000a00| 69 6e 67 20 69 6e 74 6f | 20 61 20 50 61 73 63 61 |ing into| a Pasca|
|00000a10| 6c 20 73 74 72 69 6e 67 | 20 2a 2f 0d 09 09 69 66 |l string| */...if|
|00000a20| 20 28 5f 5f 63 74 6f 70 | 73 74 72 69 6e 67 28 70 | (__ctop|string(p|
|00000a30| 61 74 68 2c 20 70 70 61 | 74 68 29 20 21 3d 20 6e |ath, ppa|th) != n|
|00000a40| 6f 45 72 72 29 20 72 65 | 74 75 72 6e 20 28 2d 31 |oErr) re|turn (-1|
|00000a50| 29 3b 0d 09 0d 09 09 72 | 65 74 75 72 6e 20 28 5f |);.....r|eturn (_|
|00000a60| 5f 73 74 61 74 28 30 2c | 20 30 4c 2c 20 70 70 61 |_stat(0,| 0L, ppa|
|00000a70| 74 68 2c 20 62 75 66 29 | 29 3b 0d 09 7d 0d 09 72 |th, buf)|);..}..r|
|00000a80| 65 74 75 72 6e 20 28 2d | 31 29 3b 0d 7d 0d 0d 2f |eturn (-|1);.}../|
|00000a90| 2a 0d 20 2a 09 69 6e 74 | 20 66 73 74 61 74 28 69 |*. *.int| fstat(i|
|00000aa0| 6e 74 20 66 69 6c 64 65 | 73 2c 20 73 74 72 75 63 |nt filde|s, struc|
|00000ab0| 74 20 73 74 61 74 20 2a | 62 75 66 29 0d 20 2a 0d |t stat *|buf). *.|
|00000ac0| 20 2a 09 09 52 65 74 75 | 72 6e 73 20 69 6e 66 6f | *..Retu|rns info|
|00000ad0| 72 6d 61 74 69 6f 6e 20 | 61 62 6f 75 74 20 61 20 |rmation |about a |
|00000ae0| 66 69 6c 65 2e 0d 20 2a | 2f 0d 69 6e 74 20 66 73 |file.. *|/.int fs|
|00000af0| 74 61 74 28 69 6e 74 20 | 66 69 6c 64 65 73 2c 20 |tat(int |fildes, |
|00000b00| 73 74 72 75 63 74 20 73 | 74 61 74 20 2a 62 75 66 |struct s|tat *buf|
|00000b10| 29 0d 7b 0d 09 53 74 72 | 32 35 35 09 09 09 66 6e |).{..Str|255...fn|
|00000b20| 61 6d 65 3b 0d 09 46 43 | 42 50 42 52 65 63 09 09 |ame;..FC|BPBRec..|
|00000b30| 66 63 62 70 62 3b 0d 09 | 4f 53 45 72 72 09 09 09 |fcbpb;..|OSErr...|
|00000b40| 65 72 72 3b 0d 0d 09 66 | 63 62 70 62 2e 69 6f 46 |err;...f|cbpb.ioF|
|00000b50| 43 42 49 6e 64 78 20 3d | 20 30 3b 0d 09 66 63 62 |CBIndx =| 0;..fcb|
|00000b60| 70 62 2e 69 6f 52 65 66 | 4e 75 6d 20 3d 20 66 69 |pb.ioRef|Num = fi|
|00000b70| 6c 64 65 73 3b 0d 09 66 | 63 62 70 62 2e 69 6f 4e |ldes;..f|cbpb.ioN|
|00000b80| 61 6d 65 50 74 72 20 3d | 20 28 53 74 72 69 6e 67 |amePtr =| (String|
|00000b90| 50 74 72 29 66 6e 61 6d | 65 3b 0d 0d 09 65 72 72 |Ptr)fnam|e;...err|
|00000ba0| 20 3d 20 50 42 47 65 74 | 46 43 42 49 6e 66 6f 53 | = PBGet|FCBInfoS|
|00000bb0| 79 6e 63 28 26 66 63 62 | 70 62 29 3b 0d 0d 09 69 |ync(&fcb|pb);...i|
|00000bc0| 66 20 28 65 72 72 20 21 | 3d 20 6e 6f 45 72 72 29 |f (err !|= noErr)|
|00000bd0| 0d 09 09 65 72 72 6e 6f | 20 3d 20 65 72 72 3b 0d |...errno| = err;.|
|00000be0| 09 72 65 74 75 72 6e 20 | 28 65 72 72 20 3d 3d 20 |.return |(err == |
|00000bf0| 6e 6f 45 72 72 20 3f 20 | 5f 5f 73 74 61 74 28 66 |noErr ? |__stat(f|
|00000c00| 63 62 70 62 2e 69 6f 46 | 43 42 56 52 65 66 4e 75 |cbpb.ioF|CBVRefNu|
|00000c10| 6d 2c 20 66 63 62 70 62 | 2e 69 6f 46 43 42 50 61 |m, fcbpb|.ioFCBPa|
|00000c20| 72 49 44 2c 20 66 63 62 | 70 62 2e 69 6f 4e 61 6d |rID, fcb|pb.ioNam|
|00000c30| 65 50 74 72 2c 20 62 75 | 66 29 20 3a 20 2d 31 29 |ePtr, bu|f) : -1)|
|00000c40| 3b 0d 7d 0d 0d 2f 2a 0d | 20 2a 09 69 6e 74 20 6d |;.}../*.| *.int m|
|00000c50| 6b 64 69 72 28 63 6f 6e | 73 74 20 63 68 61 72 20 |kdir(con|st char |
|00000c60| 2a 70 61 74 68 2c 20 69 | 6e 74 20 6d 6f 64 65 29 |*path, i|nt mode)|
|00000c70| 0d 20 2a 0d 20 2a 09 09 | 43 72 65 61 74 65 73 20 |. *. *..|Creates |
|00000c80| 61 20 64 69 72 65 63 74 | 6f 72 79 2e 20 28 4e 42 |a direct|ory. (NB|
|00000c90| 3a 20 6d 6f 64 65 20 69 | 73 20 69 67 6e 6f 72 65 |: mode i|s ignore|
|00000ca0| 64 20 6f 6e 20 74 68 65 | 20 6d 61 63 29 0d 20 2a |d on the| mac). *|
|00000cb0| 2f 0d 69 6e 74 20 6d 6b | 64 69 72 28 63 6f 6e 73 |/.int mk|dir(cons|
|00000cc0| 74 20 63 68 61 72 20 2a | 70 61 74 68 2c 20 69 6e |t char *|path, in|
|00000cd0| 74 20 6d 6f 64 65 29 0d | 7b 0d 09 48 46 69 6c 65 |t mode).|{..HFile|
|00000ce0| 50 61 72 61 6d 09 09 66 | 70 62 3b 0d 09 53 74 72 |Param..f|pb;..Str|
|00000cf0| 32 35 35 09 09 09 70 70 | 61 74 68 3b 0d 09 4f 53 |255...pp|ath;..OS|
|00000d00| 45 72 72 09 09 09 65 72 | 72 20 3d 20 2d 31 3b 0d |Err...er|r = -1;.|
|00000d10| 0d 09 69 66 20 28 70 61 | 74 68 29 20 7b 0d 09 09 |..if (pa|th) {...|
|00000d20| 2f 2a 20 63 6f 6e 76 65 | 72 74 20 74 68 65 20 63 |/* conve|rt the c|
|00000d30| 20 73 74 72 69 6e 67 20 | 69 6e 74 6f 20 61 20 70 | string |into a p|
|00000d40| 61 73 63 61 6c 20 73 74 | 72 69 6e 67 20 2a 2f 0d |ascal st|ring */.|
|00000d50| 09 09 69 66 20 28 5f 5f | 63 74 6f 70 73 74 72 69 |..if (__|ctopstri|
|00000d60| 6e 67 28 70 61 74 68 2c | 20 70 70 61 74 68 29 20 |ng(path,| ppath) |
|00000d70| 21 3d 20 6e 6f 45 72 72 | 29 20 72 65 74 75 72 6e |!= noErr|) return|
|00000d80| 20 28 2d 31 29 3b 0d 0d | 09 09 66 70 62 2e 69 6f | (-1);..|..fpb.io|
|00000d90| 4e 61 6d 65 50 74 72 20 | 3d 20 70 70 61 74 68 3b |NamePtr |= ppath;|
|00000da0| 0d 09 09 66 70 62 2e 69 | 6f 56 52 65 66 4e 75 6d |...fpb.i|oVRefNum|
|00000db0| 20 3d 20 30 3b 0d 09 09 | 66 70 62 2e 69 6f 44 69 | = 0;...|fpb.ioDi|
|00000dc0| 72 49 44 20 3d 20 30 4c | 3b 0d 09 09 65 72 72 20 |rID = 0L|;...err |
|00000dd0| 3d 20 50 42 44 69 72 43 | 72 65 61 74 65 53 79 6e |= PBDirC|reateSyn|
|00000de0| 63 28 28 48 50 61 72 6d | 42 6c 6b 50 74 72 29 26 |c((HParm|BlkPtr)&|
|00000df0| 66 70 62 29 3b 0d 09 7d | 0d 0d 09 69 66 20 28 65 |fpb);..}|...if (e|
|00000e00| 72 72 20 21 3d 20 6e 6f | 45 72 72 29 0d 09 09 65 |rr != no|Err)...e|
|00000e10| 72 72 6e 6f 20 3d 20 65 | 72 72 3b 0d 09 72 65 74 |rrno = e|rr;..ret|
|00000e20| 75 72 6e 20 28 65 72 72 | 20 3d 3d 20 6e 6f 45 72 |urn (err| == noEr|
|00000e30| 72 20 3f 20 30 20 3a 20 | 2d 31 29 3b 0d 7d 0d 0d |r ? 0 : |-1);.}..|
|00000e40| 2f 2a 20 20 43 68 61 6e | 67 65 20 52 65 63 6f 72 |/*  Chan|ge Recor|
|00000e50| 64 0d 20 2a 09 33 30 2d | 44 65 63 2d 39 35 20 20 |d. *.30-|Dec-95  |
|00000e60| 4a 46 48 20 20 52 65 6d | 6f 76 65 64 20 75 73 65 |JFH  Rem|oved use|
|00000e70| 73 20 6f 66 20 4f 4c 44 | 52 4f 55 54 49 4e 45 4e |s of OLD|ROUTINEN|
|00000e80| 41 4d 45 53 0d 20 2a 20 | 20 6d 6d 20 39 37 30 35 |AMES. * | mm 9705|
|00000e90| 31 34 20 20 20 20 20 20 | 20 41 64 64 65 64 20 63 |14      | Added c|
|00000ea0| 6f 72 72 65 63 74 69 6f | 6e 20 66 6f 72 20 64 69 |orrectio|n for di|
|00000eb0| 66 66 65 72 65 6e 63 65 | 20 69 6e 20 31 39 30 30 |fference| in 1900|
|00000ec0| 4a 61 6e 30 31 20 61 6e | 64 20 31 39 30 34 4a 61 |Jan01 an|d 1904Ja|
|00000ed0| 6e 30 31 20 65 70 6f 63 | 68 73 0d 2a 2f 00 00 00 |n01 epoc|hs.*/...|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 01 00 00 00 01 5a | 00 00 00 5a 00 00 00 52 |.......Z|...Z...R|
|00000f10| 63 62 70 62 3b 0d 09 4f | 53 45 72 72 09 09 09 65 |cbpb;..O|SErr...e|
|00000f20| 72 72 3b 0d 0d 09 66 63 | 62 70 62 2e 69 6f 46 43 |rr;...fc|bpb.ioFC|
|00000f30| 0a 73 74 61 74 2e 6d 61 | 63 2e 63 2e 02 00 00 00 |.stat.ma|c.c.....|
|00000f40| 50 61 72 74 53 49 54 21 | 00 00 00 00 00 00 00 00 |PartSIT!|........|
|00000f50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 af ad 2d 0c 00 00 | 00 00 00 00 01 ac 72 20 |....-...|......r |
|00000f80| 3d 20 50 42 47 65 74 46 | 43 42 49 6e 66 6f 53 79 |= PBGetF|CBInfoSy|
|00000f90| 6e 63 28 26 66 63 62 70 | 62 29 3b 0d 0d 09 69 66 |nc(&fcbp|b);...if|
|00000fa0| 20 28 65 72 72 20 21 3d | 20 6e 6f 45 72 72 29 0d | (err !=| noErr).|
|00000fb0| 09 09 65 72 72 6e 6f 20 | 3d 20 65 72 72 3b 0d 09 |..errno |= err;..|
|00000fc0| 72 65 74 75 72 6e 20 28 | 65 72 72 20 3d 3d 20 6e |return (|err == n|
|00000fd0| 6f 45 72 72 20 3f 20 5f | 5f 73 74 61 74 28 66 63 |oErr ? _|_stat(fc|
|00000fe0| 62 70 62 2e 69 6f 46 43 | 42 56 52 65 66 4e 75 6d |bpb.ioFC|BVRefNum|
|00000ff0| 2c 20 66 63 62 70 62 2e | 69 6f 46 43 42 50 61 72 |, fcbpb.|ioFCBPar|
|00001000| 00 00 00 48 00 0b 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 00 00 00 00 00 00 00 04 | 00 04 00 7a 00 0d 02 46 |........|...z...F|
|00001030| 03 1e 00 7a 00 0d 02 46 | 03 1e af aa 2b 98 00 00 |...z...F|....+...|
|00001040| 0e 05 00 00 0e 5b 00 00 | 0b f4 01 00 00 00 00 02 |.....[..|........|
|00001050| 00 00 00 00 00 04 00 01 | 00 01 00 00 01 00 00 00 |........|........|
|00001060| 01 5a 00 00 00 5a 00 00 | 00 52 02 b0 46 68 34 e2 |.Z...Z..|.R..Fh4.|
|00001070| 00 00 00 1c 00 52 00 01 | 4d 50 53 52 00 01 00 12 |.....R..|MPSR....|
|00001080| 4d 57 42 42 00 00 00 2a | 03 ed ff ff 00 00 00 00 |MWBB...*|........|
|00001090| 00 00 00 00 03 ef ff ff | 00 00 00 4c 00 00 00 00 |........|...L....|
|000010a0| 03 f0 ff ff 00 00 00 52 | 00 00 00 00 00 00 00 00 |.......R|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+